The Knowledge section measures what participants know about the digital world: how it works, what risks it involves, and how different technologies affect everyday life. These items test factual understanding across topics such as information reliability, communication and privacy, online safety, AI, and generative AI. Respondents indicate whether each statement is true or false (or if they don’t know), allowing us to assess their level of digital literacy and awareness beyond self-perceived skills.
Loading
Transactional
Transactional Skills cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.
The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
AI Skills assess understanding and recognition of artificial intelligence in everyday applications: recognizing when websites/apps use AI, identifying AI-recommended content, and understanding how AI personalizes digital experiences.
The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
Generative AI Skills measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI’s capabilities and limitations.
The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
---title: "{{< iconify ph book-open-fill >}} Knowledge"format: html---```{r}#| include: falselibrary(dashboardr)```**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**The **Knowledge** section measures what participants *know* about the digital world: how it works, what risks it involves, and how different technologies affect everyday life. These items test factual understanding across topics such as information reliability, communication and privacy, online safety, AI, and generative AI. Respondents indicate whether each statement is true or false (or if they don’t know), allowing us to assess their level of digital literacy and awareness beyond self-perceived skills.```{r setup}#| echo: false#| warning: false#| message: false#| error: false#| results: 'hide'# Load required librarieslibrary(dashboardr)library(dplyr)library(highcharter)# Global chunk optionsknitr::opts_chunk$set( echo = FALSE, warning = FALSE, message = FALSE, error = FALSE, fig.width = 12, fig.height = 8, dpi = 300)# Load data from dataset_4014obs.rdsdata <- readRDS('dataset_4014obs.rds')# Data summarycat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')# Create filtered datasets# Each filter is applied once and reused across visualizationsdata_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)``````{r, echo=FALSE, message=FALSE, warning=FALSE, results='asis'}# Use dashboardr's loading overlay functiondashboardr::add_loading_overlay("Loading", 1, theme = "light")```## {{< iconify ph wallet-fill >}} Transactional**Transactional Skills** cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.```{r, echo=FALSE, message=FALSE, warning=FALSE}create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")```[{{< iconify ph cards >}} See all Transactional results](transactional.html)::: {.panel-tabset}### {{< iconify ph number-circle-one-fill >}} Wave 1::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r ktrans-wave1-overall}# result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(Ktrans2RC, Ktrans3RC), title = "", questions = c("Ktrans2RC", "Ktrans3RC"), question_labels = c("In case of a medical emergency, you make an online appointment with your healthcare provider.", "A webshop is trustworthy when you can pay with iDeal"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-wave1-age-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Ktrans2RC), title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-wave1-age-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Ktrans3RC), title = "A webshop is trustworthy when you can pay with iDeal", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Ktrans3RC")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-wave1-gender-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Ktrans2RC), title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-wave1-gender-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Ktrans3RC), title = "A webshop is trustworthy when you can pay with iDeal", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Ktrans3RC")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-wave1-edu-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Ktrans2RC), title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-wave1-edu-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Ktrans3RC), title = "A webshop is trustworthy when you can pay with iDeal", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Ktrans3RC")result```::::::### {{< iconify ph number-circle-two-fill >}} Wave 2::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r ktrans-wave2-overall}# result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(Ktrans2RC, Ktrans3RC), title = "", questions = c("Ktrans2RC", "Ktrans3RC"), question_labels = c("In case of a medical emergency, you make an online appointment with your healthcare provider.", "A webshop is trustworthy when you can pay with iDeal"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-wave2-age-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Ktrans2RC), title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-wave2-age-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Ktrans3RC), title = "A webshop is trustworthy when you can pay with iDeal", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "Ktrans3RC")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-wave2-gender-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Ktrans2RC), title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-wave2-gender-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Ktrans3RC), title = "A webshop is trustworthy when you can pay with iDeal", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "Ktrans3RC")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-wave2-edu-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Ktrans2RC), title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-wave2-edu-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Ktrans3RC), title = "A webshop is trustworthy when you can pay with iDeal", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "Ktrans3RC")result```::::::### {{< iconify ph chart-line-fill >}} Over Time::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-overtime-overall-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_timeline( data = data, title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "Ktrans2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-overtime-overall-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_timeline( data = data, title = "A webshop is trustworthy when you can pay with iDeal", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "Ktrans3RC")result```:::##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-overtime-age-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_timeline( data = data, title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "Ktrans2RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-overtime-age-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_timeline( data = data, title = "A webshop is trustworthy when you can pay with iDeal", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "Ktrans3RC", group_var = "AgeGroup")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-overtime-gender-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_timeline( data = data, title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "Ktrans2RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-overtime-gender-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_timeline( data = data, title = "A webshop is trustworthy when you can pay with iDeal", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "Ktrans3RC", group_var = "geslacht")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r ktrans-overtime-edu-item1}# In case of a medical emergency, you make an online appointment with your healthcare provider.result <- create_timeline( data = data, title = "In case of a medical emergency, you make an online appointment with your healthcare provider.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "Ktrans2RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r ktrans-overtime-edu-item2}# A webshop is trustworthy when you can pay with iDealresult <- create_timeline( data = data, title = "A webshop is trustworthy when you can pay with iDeal", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "Ktrans3RC", group_var = "Education")result```:::::::::## {{< iconify ph robot-fill >}} AI**AI Skills** assess understanding and recognition of artificial intelligence in everyday applications: recognizing when websites/apps use AI, identifying AI-recommended content, and understanding how AI personalizes digital experiences.```{r, echo=FALSE, message=FALSE, warning=FALSE}create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")```[{{< iconify ph cards >}} See all AI results](ai.html)::: {.panel-tabset}### {{< iconify ph number-circle-one-fill >}} Wave 1::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r kai-wave1-overall}# result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(KAI1RC, KAI2RC, KAI3RC, KAI4RC), title = "", questions = c("KAI1RC", "KAI2RC", "KAI3RC", "KAI4RC"), question_labels = c("Some websites and apps for news and entertainment use artificial intelligence (AI).", "Websites and apps for news and entertainment show the same content to everyone.", "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", "Your online behavior determines what is shown to you on websites and apps for news and entertainment."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-wave1-age-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KAI1RC), title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-wave1-age-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KAI2RC), title = "Websites and apps for news and entertainment show the same content to everyone.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-wave1-age-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KAI3RC), title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-wave1-age-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KAI4RC), title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI4RC")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-wave1-gender-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KAI1RC), title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-wave1-gender-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KAI2RC), title = "Websites and apps for news and entertainment show the same content to everyone.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-wave1-gender-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KAI3RC), title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-wave1-gender-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KAI4RC), title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI4RC")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-wave1-edu-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KAI1RC), title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-wave1-edu-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KAI2RC), title = "Websites and apps for news and entertainment show the same content to everyone.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-wave1-edu-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KAI3RC), title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-wave1-edu-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KAI4RC), title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI4RC")result```::::::### {{< iconify ph number-circle-two-fill >}} Wave 2::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r kai-wave2-overall}# result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(KAI1RC, KAI2RC, KAI3RC, KAI4RC), title = "", questions = c("KAI1RC", "KAI2RC", "KAI3RC", "KAI4RC"), question_labels = c("Some websites and apps for news and entertainment use artificial intelligence (AI).", "Websites and apps for news and entertainment show the same content to everyone.", "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", "Your online behavior determines what is shown to you on websites and apps for news and entertainment."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-wave2-age-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KAI1RC), title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-wave2-age-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KAI2RC), title = "Websites and apps for news and entertainment show the same content to everyone.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-wave2-age-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KAI3RC), title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-wave2-age-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KAI4RC), title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KAI4RC")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-wave2-gender-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KAI1RC), title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-wave2-gender-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KAI2RC), title = "Websites and apps for news and entertainment show the same content to everyone.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-wave2-gender-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KAI3RC), title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-wave2-gender-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KAI4RC), title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KAI4RC")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-wave2-edu-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KAI1RC), title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-wave2-edu-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KAI2RC), title = "Websites and apps for news and entertainment show the same content to everyone.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-wave2-edu-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KAI3RC), title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-wave2-edu-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KAI4RC), title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KAI4RC")result```::::::### {{< iconify ph chart-line-fill >}} Over Time::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-overtime-overall-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_timeline( data = data, title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-overtime-overall-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_timeline( data = data, title = "Websites and apps for news and entertainment show the same content to everyone.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-overtime-overall-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_timeline( data = data, title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-overtime-overall-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_timeline( data = data, title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KAI4RC")result```:::##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-overtime-age-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_timeline( data = data, title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI1RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-overtime-age-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_timeline( data = data, title = "Websites and apps for news and entertainment show the same content to everyone.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI2RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-overtime-age-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_timeline( data = data, title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI3RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-overtime-age-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_timeline( data = data, title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI4RC", group_var = "AgeGroup")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-overtime-gender-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_timeline( data = data, title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI1RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-overtime-gender-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_timeline( data = data, title = "Websites and apps for news and entertainment show the same content to everyone.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI2RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-overtime-gender-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_timeline( data = data, title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI3RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-overtime-gender-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_timeline( data = data, title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI4RC", group_var = "geslacht")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kai-overtime-edu-item1}# Some websites and apps for news and entertainment use artificial intelligence (AI).result <- create_timeline( data = data, title = "Some websites and apps for news and entertainment use artificial intelligence (AI).", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI1RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kai-overtime-edu-item2}# Websites and apps for news and entertainment show the same content to everyone.result <- create_timeline( data = data, title = "Websites and apps for news and entertainment show the same content to everyone.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI2RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kai-overtime-edu-item3}# Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.result <- create_timeline( data = data, title = "Some decisions about the content of websites and apps for news and entertainment are automatic, without a human doing something.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI3RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kai-overtime-edu-item4}# Your online behavior determines what is shown to you on websites and apps for news and entertainment.result <- create_timeline( data = data, title = "Your online behavior determines what is shown to you on websites and apps for news and entertainment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KAI4RC", group_var = "Education")result```:::::::::## {{< iconify ph magic-wand-fill >}} Gen AI**Generative AI Skills** measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI's capabilities and limitations.```{r, echo=FALSE, message=FALSE, warning=FALSE}create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")```[{{< iconify ph cards >}} See all Gen AI results](gen_ai.html)::: {.panel-tabset}### {{< iconify ph number-circle-one-fill >}} Wave 1::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r kgai-wave1-overall}# result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(KGAI1RC, KGAI2RC, KGAI3RC, KGAI4RC, KGAI5RC), title = "", questions = c("KGAI1RC", "KGAI2RC", "KGAI3RC", "KGAI4RC", "KGAI5RC"), question_labels = c("Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-wave1-age-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-wave1-age-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-wave1-age-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-wave1-age-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-wave1-age-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI5RC")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-wave1-gender-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-wave1-gender-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-wave1-gender-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-wave1-gender-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-wave1-gender-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI5RC")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-wave1-edu-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-wave1-edu-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-wave1-edu-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-wave1-edu-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-wave1-edu-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI5RC")result```::::::### {{< iconify ph number-circle-two-fill >}} Wave 2::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall```{r kgai-wave2-overall}# result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(KGAI1RC, KGAI2RC, KGAI3RC, KGAI4RC, KGAI5RC), title = "", questions = c("KGAI1RC", "KGAI2RC", "KGAI3RC", "KGAI4RC", "KGAI5RC"), question_labels = c("Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO")result```##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-wave2-age-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-wave2-age-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-wave2-age-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-wave2-age-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-wave2-age-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI5RC")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-wave2-gender-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-wave2-gender-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-wave2-gender-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-wave2-gender-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-wave2-gender-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI5RC")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-wave2-edu-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-wave2-edu-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-wave2-edu-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-wave2-edu-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-wave2-edu-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI5RC")result```::::::### {{< iconify ph chart-line-fill >}} Over Time::: {.panel-tabset}##### {{< iconify ph users-fill >}} Overall::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-overtime-overall-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI1RC")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-overtime-overall-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI2RC")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-overtime-overall-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI3RC")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-overtime-overall-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI4RC")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-overtime-overall-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI5RC")result```:::##### {{< iconify mdi:human-male-male-child >}} Age::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-overtime-age-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI1RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-overtime-age-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI2RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-overtime-age-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI3RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-overtime-age-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI4RC", group_var = "AgeGroup")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-overtime-age-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI5RC", group_var = "AgeGroup")result```:::##### {{< iconify mdi gender-transgender >}} Gender::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-overtime-gender-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI1RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-overtime-gender-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI2RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-overtime-gender-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI3RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-overtime-gender-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI4RC", group_var = "geslacht")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-overtime-gender-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI5RC", group_var = "geslacht")result```:::##### {{< iconify ph graduation-cap-fill >}} Education::: {.panel-tabset}###### {{< iconify ph chat-circle-fill >}} Question 1```{r kgai-overtime-edu-item1}# Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI1RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 2```{r kgai-overtime-edu-item2}# The usage of GenAI, such as ChatGPT, has almost no impact on the environment.result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI2RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 3```{r kgai-overtime-edu-item3}# Someone else can also get access to the information you give to GenAI, such as ChatGPT.result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI3RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 4```{r kgai-overtime-edu-item4}# People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI4RC", group_var = "Education")result```###### {{< iconify ph chat-circle-fill >}} Question 5```{r kgai-overtime-edu-item5}# GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI5RC", group_var = "Education")result```:::::::::```{=html}<nav class='pagination-nav pagination-bottom' role='navigation' aria-label='Page navigation'> <div class='pagination-container'> <a href='knowledge_p2.html' class='pagination-btn pagination-prev' aria-label='Previous page'> <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'> <path d='M12 16L6 10L12 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/> </svg> </a> <div class='pagination-info'> <span class='pagination-prefix'></span> <input type='number' class='pagination-input' id='page-input-bottom' min='1' max='3' value='3' aria-label='Current page'> <span class='pagination-separator'> / 3</span> </div> <button class='pagination-btn pagination-next pagination-disabled' disabled aria-label='Next page'> <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'> <path d='M8 16L14 10L8 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/> </svg> </button> </div></nav><!-- Pagination Navigation Script --><script>(function() { const pageUrls = ["knowledge.html","knowledge_p2.html","knowledge_p3.html"]; const pageInput = document.getElementById('page-input-bottom'); if (pageInput) { pageInput.addEventListener('change', function() { const pageNum = parseInt(this.value); if (pageNum >= 1 && pageNum <= pageUrls.length) { window.location.href = pageUrls[pageNum - 1]; } else { this.value = this.getAttribute('value'); } }); pageInput.addEventListener('keypress', function(e) { if (e.key === 'Enter') { this.blur(); } }); }})();</script>```